home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / Kopie bezpieczenstwa / SyncBack 3.2.14 / SyncBack_Setup_PL.exe / {app} / RemoveSourceAfter.vbs < prev    next >
Text File  |  2004-07-28  |  2KB  |  56 lines
  1. '------------------------------------------------------
  2. ' Script to remove file or folder. File or folder is
  3. ' argument 1 when calling the script.
  4. '
  5. ' Created by Alex, based on code from timestamp.vbs as
  6. ' provided by Michael J. Leaver (www.2BrightSparks.com)
  7. '
  8. ' Free for non-commercial use.
  9. '
  10. ' Run by calling "cscript removeSource.vbs <arg>"
  11. ' where <arg> is full path of the to-be-removed file or
  12. ' folder.
  13. ' Files should be full filenames (path included)
  14. ' and without any wildcards.
  15. ' Folders can either end with a "\" or not.
  16. '------------------------------------------------------
  17.  
  18.  
  19. '------------------------------------------------------
  20. 'Main code
  21. '------------------------------------------------------
  22.  
  23. Set objArgs = WScript.Arguments
  24. Set fso = CreateObject("Scripting.FileSystemObject")
  25.  
  26. If (objArgs.Count < 1) then
  27. WScript.Echo "No filename or dirname to remove was supplied."
  28. Else
  29. ' Concatenate all the arguments to create on file/dirname
  30. ' This is to avoid problems with spaces in filenames or dirnames.
  31. OldFileDirname = ""
  32. For I = 0 To objArgs.Count - 1
  33. OldFileDirname = OldFileDirname & objArgs.Item(I) & " "
  34. Next
  35. OldFileDirname = Trim(OldFileDirname)
  36.  
  37. 'whether the argument represents a file or a folder, eliminate any trailing "\".
  38. If (Right(OldFileDirname,1) = "\") Then
  39. OldFileDirname = Left(OldFileDirname, Len(OldFileDirname) -1)
  40. End If
  41.  
  42. Set objFileSystem = CreateObject("Scripting.FileSystemObject")
  43.  
  44. 'determine whether user gave file or folder as argument
  45. If fso.FileExists(OldFileDirname) = True Then
  46. Set oFile = objFileSystem.GetFile(OldFileDirname)
  47. oFile.Delete()
  48. ElseIf fso.FolderExists(OldFileDirname) = True Then
  49. Set oFolder = objFileSystem.GetFolder(OldFileDirname)
  50. oFolder.Delete()
  51. Else
  52. WScript.Echo "File or directory <" & OldFileDirname & "> not found."
  53. End If
  54.  
  55. End If
  56.